COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	RU FSIM[PRG,S1]PASSIX[LIB,S1],SOPAS2↔
C00004 ENDMK
C⊗;
RU FSIM[PRG,S1];PASSIX[LIB,S1],SOPAS2↔
αXRIM↔
SOPAS2↔
αXCORE 1300000↔
αXEX↔
SA SOPAS2↔


ru pcpe03[s1,ejg]↔
?p.pas↔
?p.lst↔
?p.pco↔
end↔
do sopaw6[s1,ejg]↔
?p↔

RU PCPe03[dmp,S1]↔
?F.PAS↔
?F.LST↔
?F.PCO↔
END↔
DO PAS6[PAS,S1](2)↔?F↔
|
RU sopaw6[dmp,S1]↔
?F.PCO↔
?F.PS1↔
?F.LDI↔
END↔
do pas6[pas,s1](3)↔?F↔
|
R FSIM;passix.ldi[lib,s1],?F.LDI,numer1.ldi[lib,s1]↔
αxcore 200000↔
αg↔

RU PCPW5[PAS,S1]↔
?F.PAS↔
?F.LST↔
?F.PCO↔
END↔
DO PASCAL[PAS,S1](2)↔
|
RU sopaw5[PAS,S1]↔
?F.PCO↔
?F.PS1↔
?F.LDI↔
END↔
RU FSIM[PAS,S1];PASRUN.LDI[PAS,S1],?F.LDI,numer1.LDI[PAS,S1]↔
|
RU FSIM[PAS,S1];PASRUN.LDI[PAS,S1],?F.LDI,numer1.LDI[PAS,S1]↔